open(DEBUG, ">bucket.txt"); foreach my $bucket ( @bucketList ) { print DEBUG Dumper($bucket); } close(DEBUG);