use Data::Dumper;

my @line = split (/\s+/, $i);
print Dumper \@line;