gistfile1.txt

#!/usr/local/bin/perl
use 5.14.2;
use strict;
use warnings;
use utf8;

my @hoge = qw/aaa bbb/;
my @fuga = qw/111 222/;

for(@hoge){
    say "outer:$_"; # aaa or bbb
    for(@fuga){
        say "inner:$_"; # 111 222
    }
    say "outer:$_"; # aaa or bbb
}