##
breakpoints.push(50123);
push(@breakpoints, 50123);
####
breakpoints.sort();
var return_value = breakpoints[breakpoints.indexOf(50123) - 1];
@breakpoints = sort @breakpoints;
# Use your favourite perl method for indexOf like above