Select Code to Download

use strict;
use warnings;
...
        next;
        }
        print "$ow\n";

 data
array A
physicaldrive 2C:1:1 port 2C:box 1:bay 1 SAS 1 TB OK
...
unassigned
physicaldrive 7C:3:7 port 7C:box 3:bay 7 SAS 1 TB OK
physicaldrive 7C:3:8 port 7C:box 3:bay 8 SAS 1 TB OK

 data
   unassinged...
   physicaldrive .........
   physical dirve .....
   physicaldrive......
   array