用Perl程序打印出变异碱基的位置及突变前后碱基类型

个人感觉是使用foreach结构，但是没有想明白，谁来指点一下