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