How do you access last element in split() in perl?

my $uri = "readytips.blogspot.in";
my $domain = ( split /\./, $uri )[-1];
print $domain;