sub the_results{ map{$_."\n"}@_}

sub of_looking_at{
    my @List_with_Fizz_and_Buzz;

    for my $original_number (@_){
        my $new_number = Append_Fizz_if_divisible_by_three ($original_number);
        $new_number .= Append_Buzz_if_divisible_by_five ($original_number);
        $new_number = $original_number unless $new_number;
        push @List_with_Fizz_and_Buzz, $new_number
    }
    return @List_with_Fizz_and_Buzz
}

sub a_list{ (1..100) }




print the_results of_looking_at a_list;




sub Append_Fizz_if_divisible_by_three{
    return "Fizz" unless $_[0]%3;''
}

sub Append_Buzz_if_divisible_by_five{
    return "Buzz" unless $_[0]%5;''
    
}