Select Code to Download

use warnings;
use Data::Dumper;
...
            } @things_to_sort;

print Dumper \@sort

#!/usr/bin/perl
use strict;
...
fooo
Use of uninitialized value in open at ./foo.pl line 18.
fooo

#!/usr/bin/perl
use strict;
...
3
Use of uninitialized value in open at ./foo.pl line 6.
4