Maybe somthing liket this:

use strict;
use warnings;

my $file = 'data.d';
my $FhIn;
open $FhIn, '<', $file or die "Could not open $file: $!";

while( my $line = <$FhIn> ){
    my ($first, $second, $third) = split ' ', $line;

    # do something
    # print "$first : $second : $third\n";
}

close $FhIn or die $!;
[download]