#!/usr/bin/perl
use strict;
use warnings;

#open FILE, "foo" or die$!;
#my @lines = <FILE>;
my %map=();
my $datapos = tell DATA;
foreach (grep(/,/, <DATA>))
{
	chomp;
	my ($p1,$p2) = split /,/,$_;
	$map{$p1} = $p2;
	print '$map{',$p1,'} = \'',$map{$p1},"';\n";
}
seek DATA, $datapos, 0;
foreach (grep(!/,/, <DATA>))
{
	chomp;
	print "$_ $map{$_}\n";
}

__DATA__
apple,fruit
pear,fruit
zucchini,vegetable
eggplant,vegetable
potato,vegetable
apple
apple
pear
pear
zucchini
zucchini
eggplant
eggplant
potato
potato