if(ref $somthing && ref $something eq 'HASH') {
    # iterate over keys
}
elsif (ref $somthing && ref $something eq 'ARRAY') {
    # iterate over list
}
else {
    # do whatever you want
}