Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
use strict;
...
my %uniq;
undef @uniq{@{$hash{Lemon}}};
say for keys %uniq;

Select or download this

undef $hash{Orange}{Cake};
undef $hash{Orange}{Juice};
undef $hash{Orange}{Cake};
undef $hash{Orange}{Juice};
say for keys %{ $hash{Orange} };