sub bar {
 alias $original => $alias;
 ...
}