my @matrix;
while (<INPUT>) {
    chomp; # you forgot that - remove trailing newline char
    push(@matrix, [split]);
}