> さっきPerlの質問した奴だけどできたよヽ(´ー｀)ノ
> 関数書いてくれた人とshift教えてくれた人ありがとう

sub KANSU {
  my($val, $arr) = @_;
  print "変数 $val\n";
  print "配列の最初 ${$arr}[0]\n";
}

my $arg1 = 10;
my @arg2 = (20,30,40);
&KANSU($arg1, \@arg2);

でいいんでね？
\@arg2ってのは配列への参照な

参考：2004/10/20(水)17時39分24秒