use warnings;
use strict;

print addIronman(addAm(addI("")));

sub addI {
    my ($string) = @_;
    $string . "i";
}

sub addAm {
    my ($string) = @_;
    return $string . " am";
}

sub addIronman {
    my ($string) = @_;
    return "$string ironman";
}