my @list = qw( 4 30 2 54 1 2 );
print "Which of these numbers is the largest:\n", join( "\n", @list ), "\n";
chomp( my $max = <STDIN> );