Здравейте,
и аз наскоро срещнах подобен проблем, а именно как да върна 3 стойности
от подпрограма. Направих го така но според мен има по интелигентен начин?

#! /usr/bin/perl -w

use POSIX qw(strftime);

&sub_test;
print $back[0] . "\n";
print $back[1] . "\n";
print $back[2] . "\n";

exit(0);

sub sub_test
{
$clock_in = strftime "%H%M%S", localtime;
$back[0] = substr($clock_in, 0, 2); # current_hour
$back[1] = substr($clock_in, 2, 2); # $current_minute
$back[2] = substr($clock_in, 4, 2); # $current_second
}

т.е. искам да върна и 3-те променливи без условие в подпрограмата.
Лек ден!