#!/usr/bin/perl

use strict;

for my $letter ( qw/h e l l o , w o r l d/ ) {
    $_ .= $letter;
}
print;

while (1) {
    last if ( /^o/ );
    $_ =~ s/.//
}