sub Statistics {   for (@_) {      warn "Bad argument $_" if ref $_;   } } Statistics( 'Key','Value',{ 'Key1' => 'Value1','Key2' => 'Value2' },[ 'Value1','Value2' ] );