#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

use Text::CSV;

{
    my @words = 'A' .. 'I';
    my $tsv_file = 'pm_1207122_data.tsv';
    my %tsv_data;

    initialise($tsv_file, \%tsv_data);
    search($words[rand @words], \%tsv_data) for 1 .. 5;
}

sub initialise {
    my ($file, $data) = @_;

    open my $fh, '<', $file;
    my $csv = Text::CSV::->new({sep_char => "\t"});

    while (my $row = $csv->getline($fh)) {
        $data->{$row->[0]} = [@$row[1..$#$row]];
    }
}

sub search {
    my ($find, $data) = @_;

    print "$find: ",
          exists $data->{$find} ? "@{$data->{$find}}[3,4]" : '<not found>';
}