Select Code to Download

use 5.012.02;
use strict;
...
foreach my $key ( sort keys %base_stat ) {
    say "$key => $base_stat{$key}";
}

Use of uninitialized value $temp_array[0] in join or string at test.pl
+ line 26.
Use of uninitialized value $temp_array[0] in join or string at test.pl
+ line 26.
...
4 =>  82 83 77 68
5 =>  68 81
6 =>  81

use 5.012.02;
use strict;
...
}

say $_ for @output_array;

use 5.012.02;
use strict;
...
foreach my $key ( sort keys %output_hash ) {
    say "$key => $output_hash{$key}";
}