how do I pass arrays from mainscript into the subroutine

[eventual]

Hi,
Looking at the script below, how do I pass 2 arrays from the main script into 
the subroutine? Thanks

#### script ######
#!/usr/bin/perl
use strict;
my @whatever = qw(a b c d e);
my @test = qw(1 2 3 4 5 6 7);
{
 sub testing {
   my (@data1 , @data2)  = @_;
   print "\@data1 = @data1\n";
   print "\@data2 = @data2\n";
 }
}
&testing (@whatever ,@test);