$result =  $head. " er glad " . $result while( my $head = &swap );