Select Code to Download

#!/usr/bin/perl

...
@tied_array = sort {uc($a) cmp uc($b)} @tied_array;
print "\@tied_array has " . scalar @tied_array . " elements after sort
+ing\n";
untie @tied_array;

~/dev/perl$ perl test_tie_file.pl
@tied_array has 3 elements before sorting
...
3

~/dev/perl$