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