Help for this page
my @names = ( [ qw/Jim 12/ ], ... for ( grep { $_->[0] eq $name } @names ) { print "@$_\n"; }
Jim's in the list Jim 12 Jim 57