@myArr = ( 1,2,3,4,5,6,7,8,9,10,11 ); #### @myArr = ( 1,2,3,4,5,6,7,8,9,10,11 ); for my $item (@myArr) { open(ITEM ">$item") or die "could not open $item: $!\n"; print ITEM $item; close ITEM; }