my $matched = 0; my $blah1; foreach (@lines) { if (m/^request\(.+$/) { $blah1 = $1; matched = 1; next; } if (m/^s+START_TIME,(.+)$/ && $matched) { print $blah1,':',$1; } $matched = 0; }