use strict;
use warnings;
use List::MoreUtils qw/firstidx/;

@array = qw/ fred tom jenny jeff claire /;
$array[3] = undef;
my $available_index = firstidx { not defined $_ } @array; 
$array[$available_index] = 'peter';
print "@array\n";
__END__
fred tom jenny peter claire