gistfile1.pl

#!/usr/bin/env perl
use 5.10.0;
use strict;
use warnings;
 
use Test::More;
 
sub hoge {
    my %ret;
    for my $row (@_) {
        $ret{$row->[0]}{$row->[1]} = $row->[2];
    }
    %ret;
}
 
is_deeply +{
    hoge(
        [qw/1 1 hello/],
        [qw/1 2 world/],
        [qw/2 2 good/],
        [qw/2 3 bad/],
    )
}, +{
    1 => +{
        1 => 'hello',
        2 => 'world',
    },
    2 => +{
        2 => 'good',
        3 => 'bad',
    },
};
 
done_testing;