for (keys %{ $scalar }) {
    print "$_\n" for @{$_};
}