As funções (ou subrotinas) no Perl são definidas pela declaração sub:

sub minha_primeira_funcao{
#código da função vem aqui
#….
}

Em que os { } definem um bloco que contém a subrotina. No Perl, não se definem os parâmetros das funções diretamente como em outras linguagens.

Ao invés disso, o Perl define um array @_ que contém uma lista com os argumentos passados para a função.

Assim:

minha_funcao(1234, $dado_a, $ar[6], $fruta{melao});
#Chama-se a funcao

E na definição da função:

sub minha_funcao{
$meu_dado_a = @[1];
$minha_frunta = @[3];
}

Ou, mais comum:

sub minha_funcao{
($senha, $meu_dado_a, $param, $minha_fruta) = @_;
#…
}

Cada item da array (@_) é copiado diretamente para o item correspondente na primeira lista.

Para retornar um dado da função, usa-se o comando return.