# assumes you have 0-padded dates, but if you don't you can change
# the \d\d's to \d\d?'s , and do an appropriate sprintf.

my @ymd = map { my ($m, $d, $y)  = $_ =~ /(\d\d)-(\d\d)-(\d{4})/; "$y-$m-$d"; } @dmy;