Select Code to Download

#!/usr/bin/perl

use strict;
...
                  @{ $forecast_arr->{data}[0]{'time-layout'} };
my @names = map $_->{'period-name'}, @{ $item->{'start-valid-time'} };
print "@names\n";