use strict;
use warnings;

sub blah {
   my ($arrayref) = @_;
   push @$arrayref, 42;
}

blah(\my @array);
print "darin ist @array\n";