my $foo = new Foo;
$foo->Bar($var, \@array);

sub Bar {
	my $self = shift;
	my ($var, $array_ref) = @_;
}