Select Code to Download

foreach $rec ( sort { $a <=> $b } @DB ) {
    chomp $rec;
    ($num,$name,$email,$xnumber) = split /\#/, $rec;
    # print and do whatever else you want...
}

foreach my $key (sort keys %dbhash) {
   # print the data found in $dbhash{$key}
}