my %rec;
@rec{qw( var1 var2 var3 var4 var5 )} = split /\|/, $line, 5;