Select Code to Download

test.txt 
  
...
.
.
.

$data[0]=2004,21,22 
$data[1]=2004,23,24

$data[0]=2004,21,22 
$data[1]=2004,22,23

$arr1[0]=2004 
$arr1[1]=21 
$arr1[2]=22

$arr2[0]=2004 
$arr2[1]=23 
$arr2[2]=24

  open DAT, 'test.txt' or die $!;        
  my @data; 
...
 
 close DAT;