#!perl -na
use strict;
use warnings;

our %info;
$info{$F[0],$F[1]} = $F[2];

END{
    my $name = 'Jack';
    my $fruit = 'pineapple';
    my $path = $info{$name,$fruit};
    print "$name $fruit $path\n";
}