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

$table = ();

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

}

print Dumper (\$table);