Select Code to Download

my @data;
while (<>) {
...

use Data::Dumper;
print Dumper \@data;

17:12:41       0       0       0     100
17:12:42       0       1       0      99
17:12:43       0       0       0     100

>perl script.pl data
$VAR1 = [
...
            '100'
          ]
        ];