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 }