use 5.012.02;
use strict;
use warnings;

my %base_stat;
my @temp_array;
my $basecount;
my @string;
my @string_array = qw/this that and all manner of other/;
my $pos;
my $pos_score;




foreach (@string_array){    
        @string=split(//,$_);
        $basecount=0;
        foreach $pos (@string){    
            $basecount++;
            $pos_score=ord($pos)-33;
            @temp_array=$base_stat{$basecount};   # line 124
            push (@temp_array,$pos_score);
            $base_stat{$basecount}="@temp_array";
        }
}

say "\%base_stat contains:";
foreach my $key ( sort keys %base_stat ) {
	say "$key => $base_stat{$key}";
}