my @Arra = ( 1, 2, 3, 4 );
PassByReference(\@Arra);
sub PassByReference {
     die "@_";
}