use strict;
use warnings;

$filename = 'result.txt';

open( my $fh, '<', $filename ) or die "Can't open '$filename': $!";

my @line;

while ( my $line = <$fh> ) {
    print "something here $line[0]";
    print "something here $line[1]";
    print "something here $line[2]";
    }

close $fh;