Perl Script to Fix Your Life

var $job=qw(money);
var $life=$job;
$life=s/money/motivation/gi;
@life=($life);
push @life, 'inspiration';
push @life, 'freedom'; # TODO: add more
die unless @life;
return \@life;