this one uses map and copes with variable array length:

print map
{
    "$x:" . ($a[$_] ? $a[$_] : "undef") . " " .
    "$y:" . ($b[$_] ? $b[$_] : "undef") . ";" .
    "\n"
}
(0..($#a < $#b ? $#b : $#a));
[download]