for my $tmp ("a","b","c")
{
    for (1,2,3)
    {
        print "$tmp, $_\n";
    }
}