Select Code to Download

#!/usr/bin/env perl

...
}

print Dumper(\@lines);

$VAR1 = [
          [
...
            '444'
          ]
        ];

$ perl -e 'my @x = qw{a b c d e f}; print join ",", @x[0,3,4]'
a,d,e