use strict;
use warnings;

use strict;
use Data::Dump ('dump');
my $listref = ['a','b','c','d','e'];
@$listref = @{$listref}[0, 2, 4];
print "@$listref\n";