use warnings; 
use strict;
use Data::Dumper;

sub simpleTest {
     my @i = qw(1 5 3 4 6 7);
     return @i;
}
my @test;
@test = simpleTest();

print '@test: ', Dumper(\@test);

__END__

@test: $VAR1 = [
          '1',
          '5',
          '3',
          '4',
          '6',
          '7'
        ];