Select Code to Download

use Tie::CSV_File;
tie my @array, "Tie::CSV_File", $filename, WHITESPACE_SEPARATED;
...
    # Did you really want to compute 4x a multiplication ?!
}
print @good_nums;

@array = map {[split]} @array;
# instead of the first two lines of my snippet