exemple:

#!/usr/local/bin/perl
sub filewrite {
   ($filename,@text)=@_;
   open(FIE,">$filename);
   print FILE,@text;
   close(FILE);
}

@lst=("Here you have","some lines","tosave.");
&filename("test.txt",@lst);