সম্পাদনা
my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা"); my $result = shift @fruits; print "@fruits";
পূর্বরূপ
