use strict;
use warnings;

my $data = '123456789';

my $output = '';

my $position = 0;

while ( $position < length $data ) {
    $output .= reverse substr $data, $position, 2;
    $position += 2;
}

print $output, "\n";