I am studying an existing Perl program, which includes the following line of code:

```
@{$labels->{$set}->{"train"}->{"negative"}} = (@{$labels->{$set}->{"train"}->{"negative"}}, splice(@shuffled, 0, 2000));

```

I am very confused on how to understand this piece of code.