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