#!/usr/bin/perl
#
use strict;
use warnings;

use List::MoreUtils qw(any uniq);

my @line_numbers = (1,2,5,6,9,10,18,19,23,24,25,30,31,33);
my $line_number = 0;

foreach my $li (1..35)
{
        if (any {$line_number} @line_numbers)
        {
                print "$line_number :\n";
        }
        $line_number++;
}