#!/usr/bin/perl

use warnings;
use strict;

my %splitting;

open my $FILE, '<', 'input_file' or die $!;
while (<$FILE>) {
    chomp;
    my @columns = split ' ';
    $splitting{$columns[0]} = [@columns[1 .. $#columns]];
    print "@columns[3] \n";
}
close $FILE;