#!/usr/bin/perl

#===============================================================================
#     REVISION:  $Id: test4.pl 44 2011-02-23 10:48:09Z xdr.box $
#  DESCRIPTION:  Sample file with a lot of violations.
#===============================================================================

#use strict;
#use warnings;

our $VERSION = '1.0';

sub main {
    my @a = ();

    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";
    push @a, "a";

    push @a, '$b';
    push @a, '$b';
    push @a, '$b';

    return;
}

main();