my %vehicles;
while ( <DATA> ) {
  chomp;
  my( $type, $color, $amount ) = split;
  $vehicles{$type} = [$color,$amount];
}

print for map { "$_ @{$vehicles{$_}}\n" } keys %vehicles;