# no "use autobox::universal"
# ...
for (@array) {
    if (/\D/) {
        $key=$_;
    } else {
        push @{$hash{$key}},$_;
    }
}
# ...