Select Code to Download

# always start your scripts with these two lines...
use strict;
...
    print @a;
    close $file;
}