sub askFor {
    # ...
    return if $pressed_cancel;
    ${$arg{Var}} = $user_input;
}

# ...

    return unless askFor(title => 'Name:', Var => \$name);
    # do stuff with $name

    return unless askFor(title => 'Cigarettes:', Var => \$cigs);
    # do stuff with $cigs