sub SomeOperation {
    my $self = shift;

    foreach my $element ( @{ $self->{'Big_List'} } ) {
        # do stuff to element, etc.
    }
}