Select Code to Download

#!/usr/local/bin/perl
use strict;
use warnings;
...
for my $as (keys %hash){
    print join ',', split /$;/, $as;
}