for my $item (upto(5)) {
    for my $other (upto(5)) {
        print "At $item and $other\n";
    };
};