Select Code to Download

Header stuff
123456|987|12
...
Oranges|9
Bananas|8
Footer junk

Header stuff
123456|987|12
...
Oranges|1
Bananas|3
Footer junk

Header stuff
123456|987|12
...
Oranges|8
Bananas|5
Footer junk

#!/usr/bin/perl -w

...
      print "$data{ $thisKey }->{'footer'}\n";
    }
}