как можно сделать так, чтобы подпрограма возвращала различные значения, в зависимости от контекста, в котором она вызывается? например: $a = mysub(); # пусть такая запись вернет значение 5 @a = mysub(); # а такая - список (2, 4, 8)