Select Code to Download

#!/usr/bin/perl

...
    print join(' - ', @{$ref}),"\n";

}

$VAR1 = [
          [
...
        ];
UnitID - fileno

my (@Cdevices,@Mdevices);

...
for my $ref (@Mdevices) {
    print $ref->[0],"\n";
}