use Railway::Schedule ();
use List::MoreUtils qw( lastval );

my $train = lastval { $_->destination eq q{Clarksville} } Railway::Schedule->all_trains;
$train->take;