potresti anche usare delle substringhe:

my $a="";
my $hash{substr($a,4,3)} = substr($a,7,(length $a)-10);