foreach (@{$data{$sid}})

If you use constant input, you'll get constant output:) Try:

  foreach ( @{ $data{ $key } } )

And don't a few spaces make things easier to read? Of course, where you put the spaces is a whole other debate:)