my $cut_first = sub { substr($_[0], 1, length($_[0])) };