$globStr="/disk[0-9]*";
my @mFiles = glob($globStr);
print "@mFiles \n";

@diskList=&getDisksGlob();

foreach (@diskList) {
    print ": $_ : \n";
}


sub getDisksGlob {
    $globStr="/disk[0-9]*";
    return glob($globStr);
}