sub swap {
        my ($a, $b);
        my @tmp;
        my $in = shift;

        for (my $i=0; $i < length($in)-1; $i+=2) {
                $a = substr($in,$i,1);
                $b = substr($in,$i+1,1);

                push(@tmp, $b . $a);
        }

        $out = sprintf ("@tmp");
        $out =~ s/\s//g;

        return $out;
}