Select Code to Download

#!/usr/bin/perl
#use strict;
...
print "@array\n";
__END__
Can't use "my $a" in sort comparison at oha2.pl line 7