# Calling routine
routine ( $v1, $v2, \@array );

sub routine {
my ( $fh, $h, $keys ) = @_;
...
# Dereference the array in a loop:
foreach my $key ( @{$keys} ) {