if ( $file_no1 gt $file_no2 )

##</code><code>##

$ perl -le'print "$ARGV[0] is ", $ARGV[0] gt $ARGV[1] ? "" : "NOT ", "greater than $ARGV[1]"'  12 18
12 is NOT greater than 18
$ perl -le'print "$ARGV[0] is ", $ARGV[0] gt $ARGV[1] ? "" : "NOT ", "greater than $ARGV[1]"'  12 10
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

##</code><code>##

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

##</code><code>##

            $indexed= "\(";
            foreach my $index (@array)
            {
                $temp=$index+0;
                $indexed="$indexed $temp";
                $indexed="$indexed,";
            }
            $indexed ="$indexed \)";

##</code><code>##

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

##</code><code>##

            $hashref2 = @$VAR2[$k];

##</code><code>##

            $hashref2 = $VAR2->[$k];

##</code><code>##

                my $srt;
                for (my $s=0;$s<@array; $s++)
                {
                    for (my $r=0;$r<@array;$r++)
                    {
                        if ($s ne $r)
                        {
                            if($array[$s]<$array[$r])
                            {
                                $srt=$array[$s];
                                $array[$s]=$array[$r];
                                $array[$r]=$srt;
                            }
                        }
                    }
                }

##</code><code>##

                for my $s ( 0 .. $#array )
                {
                    for my $r ( 0 .. $#array )
                    {
                        if ( $s != $r && $array[ $s ] < $array[ $r ] )
                        {
                            @array[ $r, $s ] = @array[ $s, $r ];
                        }
                    }
                }

##</code><code>##

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