my (@rara) = ( 1, 2, 4 );

sub ra {
    my $r = shift;
    say ref $r;
}

ra( \@rara );

ra( [12] );