my @arr = map {[split /\s+/]} <DATA>;

sub criteria {
  my $r = 0;
  $r ||= (($a->[$_]||0) <=> ($b->[$_]||0)) for 0..5;
  $r;
}

@arr = sort {criteria} @arr;
print join "\n", map {join " ", @$_} @arr;
__DATA__