Note that the loop
    foreach my $ele (@data) {chomp $ele}
is the same as the statement
    chomp(@data);