# type value   value2
#  503  1093    4395

# load the data
@file = <FILE>;
# or use a while (defined(my $line = <FILE>)) { loop

for my $line (@file) { # for is the same as foreach
  my @fields = split (/\s+/, $line); # @file was being reused
  print "$fields[2]\n";
}