foreach (@hoge){
 foreach my $x (@huga){
  〜

と、

foreach my $x (@hoge){
 foreach (@huga){
  〜

はどっちがいい?