#!/bin/perl5

use strict;
use warnings;
use Data::Dumper;

my @sort = qw(
  05-11-2006 
  01-01-2005
  04-12-2005
  22-03-2005
);

my @reversed = map {
  join '', 
    substr($_, 6), 
    substr($_, 3,2), 
    substr($_, 0,2)
} @sort;

print Dumper(\@reversed);

__DATA__
---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
$VAR1 = [
          '20061105',
          '20050101',
          '20051204',
          '20050322'
        ];

> Terminated with exit code 0.