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

open IN, "<IN" or die "Cannot open IN\n";
my @arr;
while (<IN>) {
  chomp;
  my @line = split;
  push @arr, \@line;
}
close IN;

print Dumper(\@arr) . "\n";

foreach (@arr) {
  print "$_->[0] - $_->[1] - $_->[2]\n";
}