Select Code to Download

#!/usr/bin/perl
use strict;
...
        my $data = $file{$_};
        print join(":", ( @$data, $_ ) ) . "\n";
}

script.pl < inFile > outFile