Your code looks like a good solution to what I am doing however, I dono't think I have my data in a form that would work with that solution. my $csv is a Text::CSV_XS class I am reading in my data into hash that has keys that point to array refs. So I am reading in data like so:

while(<$in>){
  $csv->parse( $_ ) or warn "Bad data: $_\n", next;
  my @row = $csv->fields();
  $hashed{ $row[ 0 ] } = \@row; 
}close $in;
[download]

Update:Nevermind I was just being and idiot. Your solution worked great once I understood it thanks.