@a = shift(@a) ;
unshift (@a , 1) ;

この記述はあってますか？、それと日本語使えてウインドウズに入るＰｅｒｌって売ってますか？