Select Code to Download

while ( my ($key, $value) = each(%$po) ) {
    $hash{$key} = $value ? $value : "a";
}