@array = (
　　[0.5, 1.0, 1.5, 2.0],
　　[1, 2, 3],
　　# これ以上増えたら、下のコードじゃ対応できない。ヘボいね。
);

for (my $a=0 ; $a<@{$array[0]} ; $a++) {
　　for (my $b=0 ; $b<@{$array[1]} ; $b++) {
　　　　print "($array[0]->[$a],$array[1]->[$b]), ";
　　}
}

これでいいか…
日本語キーボード超ウゼー