How do you get the second element in split function in perl?

$doi="10.008/bk9999";
$book_id = (split /\//, $doi)[1];