my @names = (
    [ qw/Jim     12/ ],
    [ qw/John    15/ ],
    [ qw/Peter   08/ ],
    [ qw/Andrew  34/ ],
    [ qw/Jim     57/ ],
    [ qw/Andreas 27/ ],
);

my $name = 'Jim';

#simple searching
if ( grep { $_->[0] eq $name } @names ) {
    print "$name\'s in the list\n";
}

# or to get all of $name's entries
for ( grep { $_->[0] eq $name } @names ) {
    print "@$_\n";
}