I tried [-1] and it worked .. Because its the only point available and needed.
Thanks a lot era ..

I dont know much about perl as am very new to this ..and my time is very limited that I cant do a leran and implement principle but implement and learn ..