#!/usr/bin/perl
use 5.010;
say f( 34 );

sub f {
  $_[0] + 8
}