Hash Sorting Problem

------=_Part_11461_27535052.1203926419402
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Dear List

I have written the following code .............

use Data::Dumper;


%file = (14 => "GGG",
         11 => "AAA",
        101 => "EEE",
          1 => "TTT");


print Dumper \%file;



@[EMAIL PROTECTED]
 = sort { $file{$b} cmp $file{$a} } keys %file; #the oldest entry
lies
at the top position

print Dumper \@[EMAIL PROTECTED]
 $el(@[EMAIL PROTECTED]
)
{

delete $file{$el};
print "The $el is removed from the sorted list"."\n";
@[EMAIL PROTECTED]
 = sort { $file{$b} cmp $file{$a} } keys %file; #the oldest entry
lies
at the top position
print "After sorting the array elements are"."\n";
print Dumper \@[EMAIL PROTECTED]
 ------------

$VAR1 = {
          '1' => 'TTT',
          '11' => 'AAA',
          '101' => 'EEE',
          '14' => 'GGG'
        };
$VAR1 = [
          '1',
          '14',
          '101',
          '11'
        ];
The 1 is removed from the sorted list
After sorting the array elements are
$VAR1 = [
          '14',
          '101',
          '11'
        ];
The 101 is removed from the sorted list
After sorting the array elements are
$VAR1 = [
          '14',
          '11'
        ];

In the last output I think the list is not sorted properly. How can I
solve
this problem.

Thanks&Regards in Advance
Anirban Adhikary.

------=_Part_11461_27535052.1203926419402--