foreach my $log ( @log_names ) { my ($stdout, $stderr, $exit) = $ssh->cmd( "cat $log " ) my @logdata = split /\n/, $stdout; undef $stdout; while ( my $line = pop @logdata ) { # parse/collect stats on $line } }