@array = (
　　[0.5, 1.0, 1.5, 2.0],
　　[1, 2, 3],
);

foreach my $foo (@array) {
　　foreach my $bar (@$foo) {
　　　　print "($foo,$bar), ";
　　}
}

日本語キーボード超ウゼー