sub GetBigList {
    my $self = shift;
    return $self->{'BigList'};
}

sub SomeOperation {
    my $self = shift;

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