use strict;
use warnings;

$| = 1;

my $x = 11;
my $y = 22;
my $q = func1($x, $y);
my $z = $x + $y;
my $t = func1(19, 23);
$t++;
$z++;


sub func1 {
   my ($q, $w) = @_;
   my $multi = $q * $w;
   my $add   = $q + $w;
   return $multi;
}