#!/usr/bin/perl -w
use strict;

my @val;

while(<>) {
    chomp;
    push @val, [ split ];
}