foreach (@{$w->{links}}) {
    print $$_[0]."\n";
}