my @dates = (qw/092205 092305 092605/);
my @newdates;

foreach my $date (@dates) {
    my ($month,$day,$year) = ($date =~ /(\d\d)(\d\d)(\d\d)/);
    push @newdates,join('/',$month,$day,$year);
}