@a1 = qw(0 1 2 3  4);
@a2 = qw(0 1 2 3 4 5 6 7 8);
@a3 = qw(0 1);
@a4 = qw(0 1 2 3 4 5);

##</code><code>##

$str = $a1[$i] . " " . $a2[$j] . " ". $a3[$k]. " " . $a4[$l]