Select Code to Download

    my %wanted   = ();
    my %hash     = ( 'foo' => [1,2,3], 'bar' =>[3,4,5]);
...
    for $key (keys %wanted) {
        print "$key, @{$wanted{$key}}\n";
    }

    Left-over:
    bar, 3 4 5
    Wanted:
    foo, 1 2 3