my $name = Sam;