foreach my $element (@{$w{Sub}->{rbscells}})
{
    print $element . "\n";
}