#begin
#!/bin/perl

@xyz=(abcdefghij,xyz,sdfakjsadfk);
@abc=(123,345,567);

&call("string1",\@xyz,\@abc,"string2");

sub call
{
  $w=$_[0];
  $x=$_[1];
  $y=$_[2];
  $z=$_[3];
  foreach (@$x){ print "$_ "};
  print "\n";
  foreach ($w){ print "$_ "};
  print "\n";
  foreach (@$y){ print "$_ "};
  print "\n";
  foreach ($z){ print "$_ "};
  print "\n";
}
#end