Select Code to Download

use warnings;
use strict;
...
    $p = $hoa->{$_};
    print join ' ', @$p; print "\n";
}

    print join ' ', @$p[0], @$p[1]; print "\n";

    print join ' ', $p->[0], $p->[1]; print "\n";

for (sort keys %$hoa) {
    print join ' ', @{$hoa->{$_}}; print "\n";
}