>>864
どうなんだろう？うまくいくならいいんじゃない？
もれだったら以下のようにする

foo($b,@a);

sub foo {
my $b = shift;
my @a = @_;
・・・・・
}

もしくは
foo(\@a, $b);

sub foo {
my $aRef = shift;
my $b = shift;
my @a = @$a;
・・・・・
}

引数で渡した値はすべて@_に詰め込まれるので
確か
sub foo{
my @a = @_:
した時点で、$bも@aに入っちゃう気がする・・・・