Select Code to Download

my @sorted;
{
...
             $_{ $b } ||= substr( $b, 3, 4 )
           } @array;
}

my %hash = map { substr( $_, 3, 4 ), $_ } @array;