#!/usr/local/bin/perl
use strict;

my @ar;

sub test_args{
 my (@ar,$t) = @_;
 print "t = $t\n";
 print "ar = @ar\n";
}


push (@ar,"one");
push (@ar,"two");

test_args(@ar,"three");