When you define the keys, simply create an array with the keys ordered in the way you like.

my @iRecord_keys = qw( foo bar baz );

# . . . 
 
@iRecord{ @iRecord_keys } = split /\|/, $line;
[download]

-sauoq
"My two cents aren't worth a dime.";