#!/usr/bin/perl

use strict;

my @array;
while (my $line = <DATA>) {
    chomp $line;
    my @points = map{ s/\s+// } split /\t/, $line;
    push @array, \@points;
}