use strict;
use warnings;

my $cli = 'file.txt';
open (FILE,"<$cli") or die $!;
     while (my $cli_str = <FILE>)
          {
           my @cli_str = ("$cli_str");
           &next(@cli_str);
          }
       close FILE;

sub next
  {
   my (@cli_str) = @_;
   print @cli_str;
   open (IN, ">>data.txt") or die $!;
   print IN @cli_str;
   close IN;
  }