#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Carp;

my @list    = qw{ Tim Bob Susanne Olli Nancy };
my $idx     = $#list;
$list[$idx] eq 'Susanne' and splice (@list, $idx, 1) while($idx-- > 0);

print Dumper \@list;