my @array = (1,2,3,4,5); some_sub( \@array );