foreach $pair(@list){
my ($x,$y) = split /\//, $pair, 2;
print $y," is paired with ", $x, "\n";
} 

__END__
34 is paired with 23
56 is paired with 34
01 is paired with 45