foreach my $element (@plist) {