#!/usr/bin/perl -w

use strict;

for (1 .. 10)
{
    print $_, $/;
    for (11 .. 20)
    {
        print "\t$_", $/;
    }
    print $_, $/;
}