use Algoritm::Loops 'MapCarE'; sub swapValues { MapCarE { $_[0]= $_[1] } \@_, [reverse @_] }