foreach my $item ( @{$ref->{Layer2Details}{Device}} )
{
    print $item->{IPAddress}, "\n";    
}