#!/usr/bin/perl
use strict;
use warnings;

open(my $fh,'data4.txt');
while(my $row = <$fh>){
chomp $row;
print "$row \n";
}