Select Code to Download

Hi,

...
maps_c7    330_860_RV     3195941 00    54     0K8646
maps_c7    350_860_RV    3195942 00    55     0K8647
maps_c7 360_925_RV    3195943    00    56     0K9048

if(column1)
{
...
    $tspec=$_;
}

#!/usr/bin/perl

...
}
(tied @data)->flush;