#!/usr/bin/perl -W

@files = qx( ls ORMM__* | sort );

%latest = ();
foreach $file( @files ) {

	chomp $file;
	
	$date = substr( $file, 6, 6 );
	$latest{ $date } = $file;

}

@dates = sort( keys( %latest ) );
foreach $date( @dates ) {

	print $latest{ $date }, "\n";
	$file = $latest{ $date };
	system( "mv ${file} .." );

}