#!/usr/bin/perl

use strict;
use diagnostics;

my $i;