print substr("abcdefghij",10-$var),"\n";