Select Code to Download

#! /usr/bin/perl -w

...
print "$owned{$_}\t$name{$_}\n"
    foreach sort{ $name{$a} cmp $name{$b} }
    keys %owned;