sub concat {
    return $_[0] . $_[1];