use strict;
use warnings;

my $str1 = "This is string 1.";
my $str2 = "String 2 this one is.";

upper ($str1, $str2);
print "$str1 $str2";

sub upper {
  tr/a-z/A-Z/ for @_;
}

##</code><code>##

THIS IS STRING 1. STRING 2 THIS ONE IS.