~/dev/perl$ perl test_tie_file.pl
@tied_array has 3 elements before sorting
@tied_array has 4 elements after sorting
~/dev/perl$ perl test_tie_file.pl
@tied_array has 7 elements before sorting
@tied_array has 8 elements after sorting
~/dev/perl$ perl test_tie_file.pl
@tied_array has 11 elements before sorting
@tied_array has 12 elements after sorting
~/dev/perl$ cat tiefile


1
1
1
2
2
2
3
3
3

~/dev/perl$