...
my $key= shift @array;
if( $hash{ $key }) {
    warn "Duplicate key '$key'";
};
$hash{ $key }= \@array;
...