Help for this page

Select Code to Download

Select or download this


    my @foo = sort (keys %data);
...
       print "while: $data{$_}\n";
    }