Select Code to Download

$data[ $#data ++ ] = $1;

use warnings;
my @data;
...
3
Use of uninitialized value $_ in print at - line 7.

use warnings;
my @data;
...
1
2
3