@x=(1,2,3,4,5,6) Array::Reform->reform(\@x,2); #### [ [ 1 , 2] , [ 3 , 4 ] , [ 5, 6] ] #### if (nonzero ($value,$value2,$value3)) { ; } if (zero ($value,$value2,$value3)) { ; } # do something when pagemode is one in the list. if (any(map { $PAGEMODE eq $_ } ('CONFIRM_OFFER', 'VIEW_DETAILS', 'Purchase Item', 'Confirm Counter Offer')) { handle_these_pagemodes() } #### use Date::Ordinal; $ord = month2ord('January'); # $ord gets 1 $mon = ord2month('1'); # $mon gets 'January' $mon = ord2month(1); # $mon gets 'January' $mon = ord2month('01'); # $mon gets 'January' $arryref = all_month_ordinations @arry = all_month_names $arryref = all_month_names_ref $arryref = all_short_month_names_ref $arryref = all_day_ordinations $arryref = all_hour_ordinations $arryref = all_minute_ordinations $hashref = ordination_month_pair # {'01' => 'January', ... } @day = days #### $file_pointer = $cgi->param('file_tag'); $file_upload = HTTP::File::upload($file_pointer,'/target-dir'); #### use Parse::FixedDelimiter; $phone_number=803-781-4191; Parse::FixedDelimiter::parse($phone_number, \%moms_phone, '-', [ 'area_code', 'exchange', 'number' ]); for (keys %moms_phone) { print $_, " ", $moms_phone{$_}, $/; } # yields $moms_phone{area_code} == 803 # $moms_phone{exchange} == 781 # $moms_phone{number} == 4191 #### use Parse::FixedLength; $phone_number=8037814191; parse_FL($phone_number, \%moms_phone, [ {'area_code' => 3}, {'exchange' => 3}, {'number' => 4} ] ); for (keys %moms_phone) { print $_, " ", $moms_phone{$_}, $/; } # yields $moms_phone{area_code} == 803 # $moms_phone{exchange} == 781 # $moms_phone{number} == 4191