Select Code to Download

Select or download this
```
    if ( $file_no1 gt $file_no2 )
```

$ perl -le'print "$ARGV[0] is ", $ARGV[0] gt $ARGV[1] ? "" : "NOT ", "
+greater than $ARGV[1]"'  12 18
12 is NOT greater than 18
...
12 is greater than 10
$ perl -le'print "$ARGV[0] is ", $ARGV[0] gt $ARGV[1] ? "" : "NOT ", "
+greater than $ARGV[1]"'  7 10
7 is greater than 10

Select or download this

        if ( $file_no1 eq 0 )
                if ( $mkey eq $k )
                    if ($k eq $file_no1-1 )
            if ( $count1 eq $count2 )
    if ( $flag eq 1 )

Select or download this

            $indexed= "\(";
            foreach my $index (@array)
...
                $indexed="$indexed,";
            }
            $indexed ="$indexed \)";

Select or download this

            $indexed = "(" . join ", ", @array, ")";

Select or download this
```
            $hashref2 = @$VAR2[$k];
```
Select or download this
```
            $hashref2 = $VAR2->[$k];
```

Select or download this

                my $srt;
                for (my $s=0;$s<@array; $s++)
...
                        }
                    }
                }

Select or download this

                for my $s ( 0 .. $#array )
                {
...
                        }
                    }
                }

Select or download this

                @array = sort { $a <=> $b } @array;