use strict;
use Data::Dumper;

my $name = "baggins";
&uppercase( $name );
print Dumper( $name );

sub uppercase {
	for (@_) { 
		tr/a-z/A-Z/;
	}
}