a(@a);

sub a ( \@ )
{
    my($array_reference) = @_;
}