Select Code to Download

while( <> ) {
    chomp;
    my( $key, $subkey ) = split;
    $h{$key}{$subkey}++;
}

#! /usr/bin/perl -w

...
        print "$c is complicated\n";               
    }
}