sub foo {
    my $scalar = shift;
    my ( $arrayref, $hashref );
    if ( UNIVERSAL::isa( $_[0], 'ARRAY' ) {
        $arrayref = shift;
    }    if ( UNIVERSAL::isa( $_[0], 'HASH' ) {
        $hashref = shift;
    }
    ....
}