#!/usr/bin/perl 
use strict; 
use warnings; 
my @columns = qw/Date ClosingPrice AveragePrice/;
my (@lines,@array); 

open (FILE, '<', 'FB_LPWAP.txt') or die ("ERROR: Could not read file"); 
foreach my $line (<FILE>){ 
  push @array, do { my %h; @h{@columns} = split /\t/,$line; \%h };
} 
close (FILE);

foreach my $row (@array) {
  foreach my $col (reverse keys %{$row}) {
    printf "%s=>%s ",$col,$row->{$col}
  }
  print "\n";
}