Select Code to Download

my (%pal, $key_pal, $data, %key_pal, $pal);
open (FILE, "< pal.txt") || print "There is no PAL file here";
...
  $key_pal, $data = split ",", $line;
  $key_pal{$pal} = $data;
}

if ($pal{$key_pal} eq $my_item) { ...some code here}