&foo( %ENV, "sample", 123456 );

sub foo
{
my (%a, $b, $c ) = @_;
}

こうやっても、%a $b $c に何も入ってこないよ〜
解らないよ〜ヽ(´Д`；)ﾉ