Select Code to Download

use strict;
use warnings;
...

use Data::Dumper;
print Dumper(analyse_user_inputs($data));