Perl: File into Array

#!/usr/bin/perl

use strict;
use warnings;

my $filename = 'hobbies.txt';

open (my $handle , '<:encoding br="" filename="">    or die "Could not open file '$filename' $!";

chomp (my @hobbies = <$handle>);
close $handle;

my $totalHobbies = $#hobbies;

print "hobbies: @hobbies\n";

print "---------------: $totalHobbies\n";
print "1st. hobby: $hobbies[0]\n";

my $index=9;
print "nine hobby: $hobbies[$index]\n";
print "last hobby: $hobbies[$totalHobbies]\n";

my $randomHobby=int(rand($totalHobbies+1));
print "Random hobby: $hobbies[$randomHobby]\n";

# generate ages between 18 and 118 years
my $minYear=18;
my $range=100;
my $randomYear=int(rand($range)) + $minYear;

print "Random year: $randomYear\n";