> perl -MData::Dumper -e ' @arg{key} = (1 .. 6); print Dumper(\%arg);'
$VAR1 = {
          'key' => 1
        };

##</code><code>##

my @arg= 1..6;

##</code><code>##

if (exists $hash{$_}) {
  foreach my $physh (sort keys %{$hash{$_}[2]}){
    next if (!$hash{$_}[2]{$physh}[9]);
        ...
}