@data = ($thing1, $thing2);
&doStuff($arg1, $arg2, $arg3, $ar4, @data);

...

sub doStuff
{
  @info = $_[4];
  print "@info";
}