open (FILE, "$record") or die 'can\'t open record page: $!';
    my @record =<FILE>;
    close FILE;
    
    my @record = reverse @record;
    
    my @record1 = ($record[0], $record[1], $record[2], $record[3], $record[4], $record[5], $record[6], $record[7], $record[8], $record[9]); 
    
    my $record1 = join "<br>", @record1;