55 chars and strict compliant

sub p{($a,$b,@_)=@_;@_<abs$a?p($a,$b,$a<0?($b,@_):(@_,$b)):@_}
    #          1         2         3         4         5
    # 1234567890123456789012345678901234567890123456789012345
[download]