my @arr1 = split/\n/,$var;
print "@arr1\n";
chomp(@arr1);
print "@arr1\n";