foreach (@array)
{
    /^(\d+).*(\w+)$/;

    %hash{$2} = $1;
}