Select Code to Download

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

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