#!/usr/bin/perl
use 5.12.0;
my @rot = qw(a v c g h t);
@rot = map {$_++;eval;$_++} @rot;
say @rot;