# ...
use Scalar::Util qw( looks_like_number );
# ...
for (@array) {
    if (looks_like_number($_)) {
        $key=$_;
    } else {
        push @{$hash{$key}},$_;
    }
}
# ...