for($i = 0; $i <4; $i++) {
print map {$_->[$i] . "\n" } sort { $a->[2] <=> $b->[2]} @rows;