#!/usr/bin/perl -w

my @tab;

if (! @ARGV) {
	@tab = <STDIN>;
    }
else 
    {
    open(DATA, $ARGV[0]);
    @tab = <DATA>;
    close(DATA);
    }
}