use strict;
use Data::Dump ('dump');
my $listref = ['a','b','c','d','e'];
#### delete @{$listref}[1,3,5]; #### this line is crazy, it should be:
delete @{$listref}[0,2,4];
print dump($listref),"\n";