my $previous = ""; for my $item (@list) { sleep(5) if $item !~ /^$previous/; print $item; $previous = $item; $previous =~ s/^(.+)\: .+/$1/; # the regex by which you want to group your items }