1. You might try the simple approach:

sub wanted {
    if (/\.pl$/i) {
        $_ = $File::Find::name;
        save_data(stat ($_), $_);
    }
}
[download]

2. Well, not exactly. You could separate the special last case out of the loop. You could also iterate $_ over the integers 1 to 13 and index into @_ for the values, which would look like this:

$sth -> bind_param ($_, @_[$_], SQL_INTEGER) foreach (1..13);
$sth -> bind_param (14, @_[14]);
[download]