$ perl -MDevel::Size=total_size -wE 'say total_size [1, 2, 3, 4]'
200
$ perl -MDevel::Size=total_size -wE 'say total_size { foo => 1, bar => 2, baz => 3, blubb => 4}'
382