#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

my @arr_new;

for my $z (9687,4,5,9687,2,5,9673,2,5,6,8,9734,4,6,7,8) {
    if ($z >= 10) { # mehrstellige Zahl: neuer Eintrag
        push @arr_new, $z;
    } else { # einstellige Zahl wird an letzten Eintrag angehängt
        $arr_new[-1] .= $z;
    }
}

say for @arr_new;