@hash{@alphafiles}=();
foreach (keys %hash){
my $patt=substr($_,0,index($_,"xml"));
@matched=grep(/^$patt/,@gammafiles);
$hash{$_} = $matched[0];
}

##</code><code>##

@sortalpha= sort @alphafiles;
@sortgamma= sort @gammafiles;
$i=0;
 while($i <= $#sortprod)
{
$hash{$sortalpha[$i]}=$sortgamma[$i];
$i++;
}