#!/usr/bin/perl
use strict;
use warnings;
use 5.014;

@ARGV = qw/ 148N.txt 162N.txt 174N.txt 175N.txt /;

my @data = map {[split]}
		   map {$_->[0]}
		  sort {$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] || $a->[3] <=> $b->[3]}
		   map {[ $_, /\d+/g]} <>;

say "@$_" for @data;