while ( my $live ) {
    my $work++;
    my $lovebaby++;
    print $_ . "to the world!"
}