#!/usr/bin/perl -w

use strict;

my @arrTest = (1,2,3);
my @arrTest2 = (4,5,6);
&GetData (\@arrTest , \@arrTest2 );
sub GetData {
  my ($messages, $count) = @_;
  # print the count;
  foreach (@ {$messages}) {
    print "$_! \n";
  } # print the count;
  foreach (@ {$count}) {
    print "$_! \n";
  }
}

##</code><code>##

my @arrTest = [1,2,3];
my @arrTest2 = [4,5,6];