ARRAY(0x253a350)
ARRAY(0x2536024)
ARRAY(0x2532bb8)
ARRAY(0x248e328)
ARRAY(0x248c1d0)
ARRAY(0x2488e40)

##</code><code>##

sub tweezers_sub
{
my @accounts_2 = map {[@{{split}}{@fields}]} @accounts;
foreach $rec(@accounts_2) 
		{
		print  FH_temp ("$rec\n");
		} # Prints all array records to the output file

}