That's working for me, as posted:

say sprintf("%d %ss have been loaded", 13, "volume");
[download]

produces

13 volumes have been loaded
[download]

Could you indicate what the problem you're experiencing is?

Oops, sorry, it was a typo in other block ("." instead of ","). Thanks for helping me to wake up, it was an odd day. :)

V.Melnik

It happens. Glad to have been of help! *tips hat*

Here's one way:

    my $message = sprintf('%d %s been loaded', $v, $v == 1 ? 'volume h
+as' : 'volumes have')
[download]

Here's a demonstration:

C:\>perl -E "say sprintf('%d %s been loaded', $_, $_ == 1 ? 'volume ha
+s' : 'volumes have') for 0 .. 9"
0 volumes have been loaded
1 volume has been loaded
2 volumes have been loaded
3 volumes have been loaded
4 volumes have been loaded
5 volumes have been loaded
6 volumes have been loaded
7 volumes have been loaded
8 volumes have been loaded
9 volumes have been loaded

C:\>
[download]

Alternatively (simpler):

    my $message = sprintf 'Volumes loaded: %d', $v;
[download]