my $Input = $ArrayRef || $HashRef;
set_value( $Input );

sub set_value {

    #recieve the passed variable(s)
    #my $self = shift;#For OO subs
    my $Arg = shift;

    if ( ref $Arg eq 'HASH' ) {
        ### Handle a hash $Arg->{key}
    } elsif ( ref $Arg eq 'ARRAY' ) {
        ### Handle an array $Arg->[$index]
    } else {
        ### Must not be an array ref or hash ref
    }

}