my $name = '';

printname($name);

sub printname { 
    my $name = shift;
    print "Hello, $name\n";
}