sub get_sound {
my ($sound) = @_;
if (ref($sound) eq 'HASH') {
if (ref($sound) eq 'SDL::Sound') {
return $sound{$_}{-data};
} elsif (ref($sound) eq 'SDL::Music') {
return $sound->{-data};
} else {
return $$sound;
}