Select Code to Download

#!/usr/bin/perl

...
}        
close OUT;
close IN;

use strict;
use warnings;

Scalar value @array[0] better written as $array[0]