#!/usr/bin/perl -w
use strict;

my (@x,@y1,@y2,@y3,@y4);

while(<>) { # reads a line into $_
    chomp; # remove the newline from its end
    my @val = split; # with no parameters, split() splits $_ on whitespace
    push @x, # push() to append to the end of @x
        shift @val; # shift pulls the first element out of an array
    push @y1, shift @val;
    push @y2, shift @val;
    push @y3, shift @val;
    push @y4, shift @val;
}
##</code><code>##

#!/usr/bin/perl -w
use strict;

my @val;

while(<>) {
    chomp;
    push @val, [ split ];
}
##</code><code>##

chomp, push @val, [ split ] while <>;

##</code><code>##

print $val[3]->[0];