$ perl 641496.pl
1
2
65
33
49
---
Average: 30
---
65 is greater than 30
33 is greater than 30
49 is greater than 30