foreach (\@records1, \@records2, \@records3) {
    my @recs = @$_;
    #--
    print join "\n", 
        sort {$a1 = $a =~ /(\d+)/;
              $b1 = $b =~ /(\d+)/;
              $a1 <=> $b1
             } @recs;
    #--    
}