#!/usr/bin/perl @list = (5,4,3,2,1)[1..3]; print "list 的值 = @list\n";