use strict;
   use Encode qw(encode decode);
   ### Define the sort key here ###
   # Sorts in ascending order.
    sub key1  { ( substr( $a, 3, 17 )) cmp ( substr( $b, 3, 17 )); }
     # Sorts  descending order.
    sub key2  { ( substr( $b, 20, 2 )) cmp ( substr( $a, 20, 2 )); }
    #
    ### Sort processing starts ###
    my @infile = <>; # Reads file
    ### Multiple sort keys can be defined and sorted in the order of t
+he key
    my @sorted = map { decode('cp1047', $_) } sort { key1 || key2 } (m
+ap
    { encode('cp1047', $_) } @infile);
    print @sorted;