#!/usr/bin/perl
system "grep \"Product Name\" ms0* > names";
open(IN,"names");
while(<IN>){
#print;
/(ms00\d\d)\:\s*Product Name\:\s*(.*)/;
#print "file=$1 Name=$2\n";
push @name,$_ ;
#push %name 
}
#print @name;
   @new = sort { $a  cmp $b } @name;
print @new;