#! perl -w # my preferred format use strict; my @bar = qw(nagas are snake people); my @zelgo = qw(of course); my @mer = qw(gosh a third nested loop); for my $foo (@bar) { for my $bie (@zelgo) { for my $bletch (@mer) { my $do = bless {}, 'stuff'; $do->DOES(['data', 'data', 'dataaaaaa', 'dataaaaaaaaaaaa' ]) or die "this is a stupidly long die message as you can see from its length\n"; } } }