open DF, "df -k |" or die "$!\n";
print scalar <DF>;

print
    map {$_->[0]}
    sort {
       $a->[1] <=> $b->[1] ||
       $a->[2] <=> $b->[2] ||
       $a->[3] <=> $b->[3] ||
       $a->[4] <=> $b->[4]
    }
    grep {defined $_->[1]}
    map {[
       $_,
       m{^/dev/dsk/c(\d+)t(\d+)d(\d+)s(\d+)}
    ]}
    <DF>;

close DF;