Untested:

use autodie;
open my $fh, "<", $input_filetuple;
my %data;   # Collects data
while (<$fh>) {
    chomp;
    my ($key, undef, undef, $value) = split;
    push @{$data{$key}}, $value;
}
[download]