@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;