Select Code to Download

use strict;
use warnings;

sub parse {
    my ($self,$hashref)=@_;
...
        $hashref->{$_}++ for split;
    }
}

#!/usr/bin/perl -l

...
print for keys %hash;

__END__