print qq(\n), @{ $hash{'STATION1'}->{'parameters'} } ; print qq(\n), $hash{'STATION1'}->{'parameters'}[0] ; ------- abcd a