#!/usr/bin/perl
open(INFO,"$ARGV[0]");
@array=<INFO>;
close (INFO)