Help for this page

Select Code to Download

Select or download this
```
my ( $top_entry, @entries ) = @_;
```

Select or download this

#!/usr/bin/env perl
use strict;
...
Array first is bad: a b c d
Last item: 
Use of uninitialized value $last_item in concatenation (.) or string a
+t line 16.