#push @{$hash{$name}},$col2,$col3;
push @{$hash{$name}},"$col2\t$col3"; # device year

##</code><code>##

foreach my $name (keys %hash){
  print "$name\n";
  foreach my $sit (@{$hash{$name}}){
    print "\t$sit\n";
  }
}