Select Code to Download

    my @oldlist = ( 4, 7, 8 );

    my @oldlist = ( 4, 7, 8 );
    my @newlist = map($_ + 42, @oldlist);

    my $names = "freddy fred bill jock kevin andrew kevin kevin jock";

    kevin     : 3
    jock      : 2
...
    bill      : 1
    fred      : 1
    freddy    : 1

    my $names = "freddy fred bill jock kevin andrew kevin kevin jock";
    my %freq;
...
    for my $k (sort { $freq{$b} <=> $freq{$a} || $a cmp $b } keys %fre
+q) {
       printf "%-10s: %d\n", $k, $freq{$k};
    }

    my $infile  = 'in.tmp';
    my $outfile = 'out.tmp';

    my $infile  = 'in.tmp';
    my $outfile = 'out.tmp';
...
    }
    close($fhin);
    close($fhout);