How about

s!(..)/(.*)!$2/$1! for @old;
[download]

to edit in place or

my @new = map {s!(..)/(.*)!$2/$1!;$_} @old;
[download]

for a new array.

-caedes