my @keys = ( qw|a e i o u| );
my @records = ();
push @records, '1|2|3|d|4';
push @records, '1|2|3|a|4';
push @records, '1|2|3|d|4';
push @records, '1|2|3|o|4';

my @final = ();
my @result = ();
@result = map { my $index = $_;
                grep{ m/^\d\|\d\|\d\|$keys[$index]\|\d$/ } @records
              } 0..$#keys;
print map{ "$result[$_]\n" } 0..$#result