Select Code to Download

 #!/usr/local/bin/perl -w 
use strict;

...
print $a[0];
print $a[1];
print $a[2];