my $temp = shift @_; print "temp is ", pp($temp>), "\n"; my %opt = %{ $temp };