@record=reverse @record;
my @record1;
my $count=0;
my $line;
while (($count<5) && ($line=$record[$count])) {
 push @record1,$line;
 $count++
}
@record1=reverse @record1;
print join ',',@record1;
[download]

The last reverse is to get the elements in the original order.

Just promise me you won't really use this version, please? ;-)))

-- 
        dakkar - Mobilis in mobile

I really appreciate this, dakkar - I understand what pain it must have caused you to write that. I do promise not to use it - but it's very useful for me to see how it works! Thank you.