#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @data;
my ($c, $i, $j);

open ( DATA, "<c:/my documents/npoint.txt" ) or die ("could not open file. &!");

$c = 0;

# Loop while there are more lines to read
while (not eof DATA) {
    # Read four lines and store them in the @record array
    my @record = (
        scalar(<DATA>),
        scalar(<DATA>),
        scalar(<DATA>) );
    $c = $c + 3;
    # Remove the new-line from the end of the lines
    chomp @record;

    # Store a reference to this @record instance
    # in the @data array.
    push @data, \ @record;
}

my @sorted = sort { $a -> [1] <=> $b -> [1] } @data;

print Dumper(@sorted);
#for ($i = 0; $i < ($c); $i++) {
#    for ($j = 0; $j <= 2; $j++) {
#        print $sorted[$i][$j] ;
#    }
#}