sub getString {
  my ($a,$b) = $@_;
  return "$a$b";  # OR  return $a.$b;
}

#usage...
my ($str1, $str2); 
my $returnstring = &getString($str1,$str2);