foreach my $element (@{$station_data{5}}) { print $element. "\n"; }