Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
}
use Data::Dumper;
print Dumper \@data;

@data=<DATA>;

while ( <DATA> ) {