open(INFO, "data2.txt"); # Open db for reading @array=; close (INFO); @ascend=sort(@array); #### my $data = qq{ open(INFO, "data2.txt"); # Open db for reading @array=; close (INFO); @ascend=sort(@array);

Welcome to ATCA Booking and managment system
Chassis information and detail

foreach $line (@ascend){ ($version,$okok)=split(/\|/,$line); }
NoversionChassisAssignedCMMIP1CMMIP2CMM1
SerialPortConnection
CMM2
SerialPortConnection
Ibootbar_Altusen
$i++ $version
};