Select Code to Download

my %key_hash= %{$VAR1};
$key = 'response_1.3.6.1.2.1.2.2.1.12.27';
$oid = '1.3.6.1.2.1.2.2.1.12.27';

print $key_hash{$key}{$oid}[0]->[1];

 
print "@{$key_hash{$key}{$oid}[0]}\n";