my @datuemer = ( '2005-1-23',
                 '2005-12-27',
                 '2005-11-2',
                 '2005-7-9',
);

s/(\d+)-(\d+)-(\d+)/sprintf '%04d-%02d-%02d', $1, $2, $3/e for @datuemer;