Yet another...

print $_,shift(@b) for @a;
# OR
print shift(@a),shift(@b) while @a; # might have been done already
# OR
$i = 0;
@c = map { $_, $b[$i++] } @a; # gives a new array with the values
[download]

my @a=qw(random brilliant braindead); print $a[rand(@a)];