sub uppercase ($) {
  return uc $_[0];
}