use feature qw( say );
sub myfunct{
.....

return $result;
}

say for myfunct($str1, $str2);