#!/apps/bin/perl -w
use Data::Dumper;

$table = ();

while (<>) {
    chomp;
    $curr_rec = [split /\|/, $_];
    push (@$table, $curr_rec);

}

print Dumper (\$table);
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.