Hi, I am trying to get the below output by reading rows from table. Need to join values of column 3 for unique column 1 values

Read input data 

A1 text1  NY   Jan  01
A2 text2  LN   Feb  02
A3 text3  SG   Mar  03
A2 text2  NY   Feb  02
A1 text1  SG   Jan  01
A1 text1  AUS  Jan  01

[download]

Expected result 

A1 text1  NY:SG:AUS   Jan  01
A2 text2  LN:NY       Feb  02
A3 text3  SG          Mar  03

[download]

For unique column 1 values, column2, 4 and 5 will unique. 

use warnings;
use strict;

my %hash;

while (<DATA>){
    chomp;
    my ($key, $col2, $col3) = split;
    push @{ $hash{$key}{$col2} }, $col3;
}

for my $k (keys %hash){
    for (keys %{ $hash{$k} }){
        my $cols3 = join ':', @{ $hash{$k}{$_} };
        print "$k $_ $cols3\n";
    }
}

[download]

In reply to Perl help by hello_beginner

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.