>>713
その引数の'hash'は何に必要なんだか理解出来ん。
sub create_hash{ map { $_, undef } @_ ; }
とか709 の方法
sub create_hash{
　my %h ;
　@h{@_}=();
　return %h ;
}
でええんちゃうん？