my (%H) = (1,100,2,200,3,300);
@A=  @H{ (1,3) };

##</code><code>##

my $Href = {1 => 100,3 =>300};
@A = @{$Href}->{ (1,3) };

##</code><code>##

$Href = {1 => 100,3 =>300};
%H = %{$Href};
@A = @H{ (1,3) };

##</code><code>##

$Href = {1 => 100,3 =>300};
my @A;
{ local %G;  *G = $Href; @A = @G->{ (1,3) } }