my @iRecord_keys = qw( foo bar baz );

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