open my $FILEOUT, '>>', "$mydir/summary_log.txt" or die "Can't create '$mycrdir/summary_log.txt'" ; while ( my @row = $sth->fetchrow_array() ) { system("ss GET $row[2]\/$row[1] -V$row[4] -GL$mydir > $FILEOUT 2>&1"); }