#e.g. file looks like; # type value value2 # 503 1093 4395 # 498 2134 9832 # etc....... @file # contains data foreach my $line (@file) { @file = split (/\s+/, $line); } print "$file[2]\n";