Select Code to Download

keys are strings never arrays

#!/usr/bin/perl -w
use strict;
...
        print join(" ",@{$hash{'number'}{$j}})."\n";
    }
}