if (defined @{$item{'range(?)'}->[0]}) { my @arr = @{$item{'range(?)'}->[0]}; foreach my $i (@arr) { print $i."\n"; } }