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

while(<DF>)
{
    next unless m{^/dev/dsk/c(\d+)t(\d+)d(\d+)s(\d+)};
    push @lines, [$_, $1, $2, $3, $4];
}

close DF;

@sorted = sort {
    $a->[1] <=> $b->[1] ||
    $a->[2] <=> $b->[2] ||
    $a->[3] <=> $b->[3] ||
    $a->[4] <=> $b->[4]}
    @lines;

print $_->[0] for @sorted;

##</code><code>##

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;