Subroutine Perl

print "What is your full name? ";
($first, $middle, $last)=split(" ", );# STDIN scalar context
print "Hi $first $last.\n";