use strict;

my $str = "abc";
uc($str);
print $str;