my $str1 = shift @_;
my $str2 = shift @_;