#!/usr/bin/perl
use strict;
use Hash
::Util qw(lock_keys
);
sub doSomething {
my ($a, $b, %opts) = @_;
lock_keys
(%opts, qw(myOption
, otherOption
));
my $x = delete $opts{otherOption
};
}
my %h = (
a=>1,
b=>2
);
foreach my $k (keys %h) { doSomething(1, 2, otherOption=>$k);
}
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSBIYXNoOjpVdGlsIHF3KGxvY2tfa2V5cyk7CgpzdWIgZG9Tb21ldGhpbmcgewogICAgICAgIG15ICgkYSwgJGIsICVvcHRzKSA9IEBfOwogICAgICAgIGxvY2tfa2V5cyglb3B0cywgcXcobXlPcHRpb24sIG90aGVyT3B0aW9uKSk7CgogICAgICAgIG15ICR4ID0gZGVsZXRlICRvcHRze290aGVyT3B0aW9ufTsKCn0KCm15ICVoID0gKAogICAgICAgIGE9PjEsCiAgICAgICAgYj0+MgopOwoKZm9yZWFjaCBteSAkayAoa2V5cyAlaCkgewogICAgICAgIGRvU29tZXRoaW5nKDEsIDIsIG90aGVyT3B0aW9uPT4kayk7Cn0K