Select Code to Download

use strict;                   # Warns about mistakes (important)

my @data;                     # Data storage variable
...
}

close (DAT);

for (my $i = 0; $i < @{$data[0]}; $i++)
{
     print "$data[0][$i],$data[1][$i]\n";
}