use strict;
use warnings;

while (<DATA>){
  chomp;
  my @ele = split /\s/,$_;