#!/usr/bin/perl
use strict;
use warnings;

my @lines = ('45d2ff76893a0033', '45d239a7dd200116');

for my $line (@lines) {
    $line =~ s/(.{4})(.{4})/$2$1/g;
}
print join "\n", @lines;