Select Code to Download

sub intermix { 
   my $a_prime = join('.', reverse(split(/\./, $a)));
...
$VAR2 = '10.2.2.1';
$VAR3 = '10.1.1.2';
$VAR4 = '10.2.2.2';

sub intermix { 
   my $a_prime = reverse($a);
...
$VAR2 = '10.2.2.1';
$VAR3 = '10.1.1.2';
$VAR4 = '10.2.2.2';

my @list = ('10.1.1.1', '10.1.1.2', '10.2.2.1', '10.2.2.2');
@list = map { $_->[0] } 
...
$VAR2 = '10.2.2.1';
$VAR3 = '10.1.1.2';
$VAR4 = '10.2.2.2';