my ($string, $hash) = (pop, pop); # Reverse order... UGLY.
my ($hash, $string) = @_[-2,-1];  # Keep "normal" order. (Better)
my ($w, $x, $y, $z) = @_[-4..-1]; # Range operator makes long lists easy.